program Project1; //Zadanie 3.6

{$APPTYPE CONSOLE}

uses
  SysUtils;

var
  i : Integer;

begin
  Writeln('Program wyswietla liczby calkowite od 1 do 20.');
  i := 0;

  while i < 20 do
    begin
      i := i+1;
      if i < 20 then
        Write(i, ', ')
      else
        Write(i, '.');
   end;

  Readln; // czeka na nacisniecie klawisza Enter
end.
